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; «NLIST 
: Version: *v04-000' 
LIST ME 


PARRBARARARASAAAAARAAAALAAE LALA ALARA SERRE RASA SA RASS RRR ALAA EARLE RARER RARE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ITHOUT NOTIC 
TAL EQUIPMEN 


=m 


@aeneeneneneneeneeeenennnnnne 


: 0 
: SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HER 


® 
® 
® 
:* 
** 
® 
% 
® 
a 
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:* 
P 
® 
® 
-* 
® 
* 
* 
* 
-* 
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+ 
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FACILITY: VAX/VMS System Macro Libraries 
ABSTRACT: 


This file contains macros that are commonly used by the 
Executive and drivers. 


ENVIRONMENT : 

n/a 
AUTHOR: The VMS Group CREATION DATE: 1-Aug-1976 
MODIFIED BY: 

V03-025 RLRADAPD Robert L. Rappaport 15-Mar-1984 


Move ADAPDESC macro here from INIADP.MAR. Also add 
ADAP_INIRUT macro definition. 


v03-024 WHMO001 Bill Matthew 05-Mar-1984 
Add support to SLVTAB macro “tor specifying the address of 
the vectors in SYS.EXE. 


M 
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v03-023 TMKO002 Todd M. Katz 13-Feb-1984 

Modify REQUEST DATA and SEND_DATA so that if the fork process 
call to FPCSALCOCMSG returns an error, the fork process call 
to FPCSREQDATA and FPCSSENDDATA respectively is skipped. 


v03-022 TMKO001 Todd M. Katz 06-Feb-1984 

Add SEND_DG_BUF_REG for sending a datagram buffer without 
having a CDRP by calling FPCSSENDRGDG with all the registers 
for sending the datagram already initialized with the 
appropriate values. 


v03-021 ROWO289 Ralph 0. Weber 26-JAN-1984 

Add three DDTAB parameters for the various driver-specific 
flavors of mount verification: MNTV_SQD for sequential device 
mount verification, MNTV_FOR for foreign device mount 
verification, and MNTV_SSSC for shadow set state change mount 
verification. 


v03-020 TCM0003 Trudy C. Matthews 02-Aug-1983 
Update CPUDISP macro so that it correctly handles the 
11/785 format System Identification register. 


v03-019 KDM0047 Kathleen D. Morse 07-Jun-1985 
Added TIMEDWAIT macro, which will eventually replace 
TIMEWAIT because its parameters are too restrictive 
for all environments. 


V03-018 RLRCPUDISPa Robert L. Rappaport 15-Jun-1983 
Add ENVIRON argument to CPUDISP so as to conditionally 
generate a BUG_CHECK where appropriate. 


V03-017 wMC0001 Wayne Cardoza 29-May-1983 


Add more protection arguments to SLVTAB. 
v03-016 RLRTEMP Robert L. Rappaport sney- 96> 
Temporary to CPUDISP so as to procede with build. 


fix 
Later fix will add ENVRION argument to CPUDISP. 


V03-015 DWT0101 David W. Thiel 25-May-1983 
Add IFCLSTR and IFNOCLSTR macros which determine 
whether or not a system is in a cluster environment. 


V03-014 RLRCPUDISP Robert L. Rappaport 25-May-1983 
Have CPUDISP use DISPATCH macro rather than the CASE 
macro. Do this in a way that for now we will accept 
both formats of CPUDISP. Later when all CPUDISP's 

have been recoded, we will reject old style invocations. 


v03-013 JWwHO213 Joftrey W. Horn 13-Apr-1983 
Change SLVTAB so that it can be used more than once 
per module. 


v03-012 ROW0176 Ralph 0. Weber 4-APR-1983 
Add macro for the fork-and-wait executive service, FORK_WAIT. 


N 
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the Linker can report truncation errors. 


GENERATING SYSTEM INTERNAL BUG CHECK 
BUG_CHECK ERROR, TYPE 


ERROR 
TYPE 


= = ONE TO SIX CHARACTER ERROR NAME. 
““FATAL"’ OR ANYTHING ELSE. 


SYSMAR .MAR; 1 

3 v03-011 ACG0322 Andrew C. Goldstein 25-Mar-1983 13:21 
; Change IFPRIV and IFNPRIV to use privilege mask in PCB 

: V03-010 swH0202 Jetfre 22-Mar-1983 

: Add SLVTAB macro. Also Fy additional LOADVEC types. 

: v03-009 MSHO001 Maryann Hinden 25-Feb-1983 

: Delete .EXTERNAL definitions for SCS macros. 

; V03-008 SRB0060 Steve Beckhardt b=Jan-1983 

: Added DISPATCH macro. 

: VO03-007 ROW0144 Lph 0. Weber 8=DEC-1982 

3 soa he. following 5 S macro 

3 Hy Ship D rec ots . response ID. 

: FIND AS Naot. “_ and validate the RDTE for a 
; ~¥ tt 

: o SCAN_MSGBUF POAIT Like SCAN_RSPID_WAIT but scans message 
3 buffer and send credit wait queues. 

: V03-006 KTA3018 Kerb ey I. Altmann 12-Nov-1982 

3 Modify LOAVEC to add SEC_LABEL param. 

; vO3-005 TCMO0002 Trudy C. Matthews 12-Oct-1982 

: Change TIMEWAIT macro to use a SOBGTR Lege to introduce a 
3 delay into its bit test loop (instead of NOPs). 

: V03-004 $TJ3027 Steven T. Jeffreys 24-Sep-1982 

3 Add the LOADVEC macro. 

: V03-003 ROwW0125 Ralph 0. Weber 19-SEP-1982 

: Add the CLONEDUCB arqunent to the DDTAB macro. 

; v03-002 RAS009S Ron Schaefer 30-Aug-1982 

: Change the CASE macro to generate signed etfeste so 


-MACRO 


-ENDM 


ote * ERROR. » TYPE=CONT 
-IIF IDN <TYPE>,<FATAL> , .WORD BUGS_‘ERROR'!4 
Bie colle <TYPE>,<FATAL> , .WORD BUGS_"ERROR’ 


> GENERATE OPERATING BUG CHECK 


: ue 


> Le 


Le 
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; BUGCHK SUBSYSTEM,ERROR ,MODE C,CALLOP=JSB) 


.MACRO BUGCHK SUBSYSTEM, ERROR,MODE, CALLOP=BSBW 
-1F IDN <MODE>,<FATAL> 

CALLOP EXESBUGCHKFATAL 

CALLOP EXESBUGCHKCONT 


-END 
eASCIZ /SUBSYSTEM'_"ERROR/ 
-ENDM BUGCHK 


CASE MACRO FOR GENERATING CASE AND CASE TABLE 
CASE SRC, <DISPATCH LIST>, CTYPE=W/B/L],CLIMIT=#0],CNMODE=S*#) 
MACRO CASE,SRC RPV ATs teke Staab ante rca) eee 


ate: CASE ' TYPE SRC,LIMIT .NMODE '<<MAX=BASE>/2>-1 
"  IRP EP, <DISPLIST> 
“SIGNED_WORD  EP=BASE 
~ENDR 
MAX: 


-ENDM 


DISPATCH == Dispatch on set of index values, not necessarily dense. 


This macro translates into the CASEx instruction. It calculates the 
“‘base’’ and ‘‘Limit’’ parameters from the <index,displacement> List 
specified in the ‘veclist' parameter. The dispatch table is set up 
such that any unspecified index value within the bounds of the 
transfer vector is associated with a displacement which transfers 
control to the first location after the CASE statement, i.e., behaves 
as if the index were out of bounds. 


Note that since the index values themselves appear in the vector 
(presumably symbolically), mo ASSUME statements are needed. 


The prefix argument may be used to specify a common symbolic prefix 
: for all the index values. 


This macro works as follows: 
$SMAX and — ere macros used to find the highest and iowest 
ndex value 
SSGENDISPL is a macro used to generate a displacement if the 
appropriate index value is specified in the vector List 


o 


First the maximum and minimum index values are found from 

which the base and Limit operands may be calculated and the 

instruction generated. 

Then, SSGENDISPL is called for each index value in range to 

generate a oranch displacement if the appropriate value was 

specified. If it wasn’t, then a branch displacement is generated 

to the “fall through’ point. 


Sete Ge Se Se Ge Fe Ge Ge Fe Ge Se Sets He Fe Se Ge Be Se Ss Se Se Ge Se Se Be Ge Be Oe 
Be Pe Se Se Oe Ge Ge Be Se Se Se Se Se Se 
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NOTE: This macro assembles in ‘'N squared’’ time where N is the size (Limit) 
of the CASE. There are other gt a . going elt $ macro that 
will assemble in ‘‘Linear with N'‘ time ficiency of this 
approach is a problem for you, Wi. heat ok, to rewrite it. 


«MACRO DISPATCH INDEX, VECLIST, TYPE=W,PREF IX=<>, 2D1SPLO 


.MACRO SSMAX IGNOR 
: EQ SSMXSUL See CRENUM 
$SMXSW=1 


1IF LT SSHIGH-NUM, $SHIGH=NUM 
-ENDM  SSMAX 


-MACRO gs NUM, IGNORE 


-11 Q $$MNSW, $$LOW=NUM 
SSMNSW= 
-llIF GT S$$LOW-NUM, SSLOW=NUM 
-ENDM $SMIN 
«MACRO $S$GENDISPL VALUE , LABEL 
EQ $$DISPL-VALUE 
- SIGNED WORD CABEL~ DISPLO 
£8 1-SSGENSW, ERROR ; Duplicate occurrence of VALUE ; 
aSGENsu= 
-ENDM $$GENDISPL 
SSMXSW=0 
SSMNSW=0 
. IRP TUPLE ,<VECLIST> 
SSMAX PREF IX' * TUPLE 
oe PREFIX’ * TUPLE 


END 
S$SBASE=S$$LO0W 
$$ IMI 1=$$H1GH-SSLOW 
$$D1SPL=$SBASE 
CASE ' TYPE INDEX ,ASSBASE ,ASSLIMIT 


DISPLO: 
REPT S$SLIMIT+1 


$SGENSW= 
. IRP TUPLE ,<VECLIST> 
S$GENDISPL PREF IX* ‘TUPLE 


IF EQ S$$GENSW, «WORD 2*<$$LIMIT+1> 
$$DISPL=S$SDISPL+1 


ND 
-ENDM DISPATCH 


CPU TYPE DISPATCH MACRO: 
CPUDISP IS INVOKED TO HANDLE CFU DIFFERENCES IN LINE, E.G., 


This i 
11/785 
the 11 
see ii this CPU is a 
destination (i.e. skip over on" cade instruction). 
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CPUDISP <<780,10$>,<750,20$>, abet tty <790 ,40$>> 
PATCH ON CPU TYPE® 
10$: <11/780 SPECIFIC CODE> 
gos: <11/750 SPECIFIC CODE> 
$: <11/7 2 ECIFIC CODE> 
40$: <11/790 SPECIFIC CODE> 


:*END OF CPU-DEPENDENT CODE®* 
THE cPUDISP MACRO IS INVOKED WITH A LIST OF PAIRS (2-TUPLES) 
WHER el THE FIRST FLEN LEMENT OF EACH PAIR IS THE PROCESSOR 
YPE (E.G. 780, 75 .) AND THE SECOND ELEMENT IS 
THE ADDRESS OF wlere Fob SPECIFIC TO THAT CPU TYPE 
THIS MACRO, THROU H ITS INVOCATION OF THE ATCH MACRO, RESULTS 
TRUCTION AND ITS DI LIST. 


A CAS 
THE _—s "oF SPE IMPORTANT AND 
HOL L, ESULT IN 


C L 
kK TED," THI L 
INADVER $s OM PASSING UNNO 
AS NEW CPU'S ARE ADDED, ‘ tates OF cPUDI MUST BE 
HE 


THIS MACRO DEPENDS ON TH T THE PROCESSOR ue ARE 
SYMBOLICALLY SPECIFIED BY SYMBOLS OF THE FORM 


PRS_SID_TYPxxx 
WHERE xxx = 780, OR 750, OR 730, OR 790, ETC. 
THE CPUDISP ALSO TAKES AN OPTIONAL ARGUMENT. ENVIRON, WHICH 


id 
Saz 


I 
N 
C 


oze.-, 


Ss H 
AT 

TH L 
TH $s 
HE Le 


na 


DESCRIBES THE RUNTIME ENVIRONMENT. ENVIRON=VMS IMPLIES NORMAL 

SYSTEM RUNNING TIME. IF THIS VALUE IS SPECIFIED THEN A BUG_CHECK 
NVOCATION IS CODED IMMEDIATELY FOLLOWING THE DISPATCH LIST 

THAT FAILURE TO PROVIDE THE PROPER CPU TYPE, WILL RESULT IN 

A BUG CHECK AT RUNTIME. IF ENVIRON=VMB IS CODED, THEN THE EQUIVALENT 
OF A BUG CHECK AT 1.£. A BSBW TO ERROUt SPECIFYING AN 


VMB TIME 
AN UNKNOON PROCESSOR TYPE Eis GENERATED. 
-MACRO CPUDISP,ADDRLIST, ENVIRON=VMS, ?2 


nternal macro heb to see if a destination was specified for the 
-__ (Usuall e. the 785 processor will execute the sone ce code path as 
/780, as thei oy bree rites in the SID are identica ii so, 
so, branch directly to the hi 


~MACRO TEST785 CPU,DEST {UBL 


IF IDN < < 

PRS$_SID_TYP785 = PRS$_$1D_ TYPMAX + 1 
; DISPATCH morte, pesds this definition. 
CMPB G*EXESGB_CPUTYPE, - 3 Is this an 85? 
#PRS$_SID-TYP780 

BNEQ L Branch if mat. 
BBC G*EXESGB _CPUDATA, LBL: Branch if n 
GR Dest ; Branch to ne 11/785 code. 
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LBL: 

-ENDC 

-ENDM = =TEST785 
; This internal macro tests to see which format of CPUDISP is being invoked. 


; .MACRO TESTARGS,ARG1,ARG2, 70 
“NCHR Q, <ARG2> 


‘ G Q, 2=1 
[ENDM = TESTARGS 
2=0 

.IRP _—D, <ADDRLIST> 
TESTARGS D 
TEST78 D 
.ENDR 
“IF NE 2 
DISPATCH G*EXESGB_CPUTYPE , <ADDRLIST>, TYPE=B, PREF IX=PR$_SID_TYP 
CASE G*EXESGB_CPUTYPE , <ADDRLIST>, LIMIT=#PR$_SID_TYP780, TYPE=B 
IF IDN <ENVIRON>, <VMS> 
BUG, CHECK UNSUPRTCPU, FATAL 
: LIF IDN <ENVIRON>, <VMB> 

BSBW  —- ERROUT 

at ha /%B00T-F-Unknown processor/ 

, IF IDN <ENVIRON>, <XDELTA> 

HALT 
.ENDC 

.ENDC 

ENDC 


-ENOM CPUDISP 
GENERATE DRIVER DISPATCH TABLE 


DDTAB DEVNAM, START,UNSOLIC,FUNCTB, CANCEL ,REGDMP DIAGBE gERLGOF -UMITINIT, - 
ALTSTART ,MNTVER, CLONEDUCB MNTV_SSSC,MNTV_FOR $00 


FOTSIZE is defined oy FUNCTAB Serre. it is zeroed here as well so a driver 

can have a DDTAB without a FUNCTAB, It is not done here with 

IF NOT “DEFINED. macro as MACRO will then immediately store the zero (on 

the first pass), and the value calculated by the FUNCTAB macro will 
gnored. 


MACRO DDTAB ore - 


REGDMP=0, 


_ 


” 
= 


7 
. 
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MNTV_ ° 
MNTV “bps 
MNTV 
peaeee $$$115 DRIVER: LONG 
*DEVNAM' SDDT 


GENRADDR START te teens aor 
Peay tes UNSOL f “arya per 


. WORD RL BF 

GENRADDR UNITINIT, "DEVNAM'SDDT 
pea a es ALTSTART, 'DEVNAM' $DDT 
GENRADDR MNTVER, ‘DEV DD 
GENRADDR  CLONEDUCB. *D VNAM' SDDT 


UN L 
GENRADDR MNTV_SSSC, SDEVNAM SDT 
GENRADDR MNTV~FOR, ‘DEVNAM' SDD 
GENRADDR MNTV~ “50D; DEVNAN' SDDT 

FUNCTAB_LEN 


-"ENDM  DDTAB 
: DECREMENT PAGE REFERENCE COUNT . 
: DECREF EQL.GTR.PFN,MODE,LABEL,CALL ; 
; EQL = BRANCH LOCATION IF NEW REFCNT = 
: GTR = BRANCH LOCATION IF NEW REFCNT > 
: PFN = REGISTER CONTAINING PFN, DEFAULT TO RO 
; MODE = SING MODE, DEFAULT IS WORD DISPLACEMENT 
: LABEL = SENT, USE THE SUPPLIED PARAMETER AS A LABEL. 
: OTHERWISE CREATE A LOCAL L ing 
; CALL = IF PRESENT, A JSB TO CALL MMGSREFCNTNEG. 
: OTHERWISE USE A BSBW. 
; c 


ghAcnD DECREF EQL,GTR,PFN=RO,MODE=W*,?L1,CALL 


DECW  @'MODE'PFNSAW_REF CNTCPFN) 
iF NB, EQL 
BEQL _EQL 
TMP...=TMP...+1 
.ENDC 
c IF 
acih GTR 
TMP...=TMP...¢ +1 
NDC 


LT,<TMP. 2 72> 
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BGEQ=siL 
.ENDC 
cIF NB, CALL 
ad Js6 G“MMGSREF CNTNEG 


BSBW MMGSREF CNTNEG 
IF LT,<TMP...-2> 


-ENDM = DECREF 
DECREMENT PAGE SHARE COUNT 
DECSHR EQL,GTR,PFN,IMAGE_FLAG 


EQL = BRANCH LOCATION IF NEW ae = 4 
GTR = BRANCH LOCATION IF NEW SHRCNT 
PFN = REGISTER CONTAINING PFN, DEFAULT TO RO 
IMAGE_FLAG = Indicator of whether macro hy located in nonpaged exec 
Set to SYS_NONPAGED if s 
Defaults td NOSYS 


.MACRO DECSHR EQL,GTR,PFN=RO, IMAGE_FLAG=NOSYS, ?L1 
Le PFN_REFERENCE = 


DECW <aw*PFNSAx_SHRCNTCPFN)>,- 
LORE 0 PCODE=DECL,- 


RAGESINAGE _FLAG 

IF L 

Bede EQL 

TMP. oe =IMP,. . +1 
.ENDC 
cIF NB, GTR 

BGTR GTR 

TMP. ..=TMP. 2 +1 
.ENDC 
lf ial. 

bcéo 

.ENDC 

BSBW MMGSSHRCNTNEG 

1 IF LT,<TMP...-2> 

.ENDC 
“ENDM DECSHR 


; DEVICE DRIVER PROLOGUE TABLE 


DPTAB ED POPP TER FLARE UCBSIEE -108.SAD AAI TS BEFURITS BEL SYED 


H 
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DPTSTAR: 


CALL al’ cle ix. RIVER i TO BE UNLOADED 
CONNECTED. 
$ TO aytocon 


URE. 
CAL T AUTOCONE I GURE TO DELIVER UNITS 
(US D ABY TTDRIVER) 


.MACRO DPTAB END. ADAPTER, FLAGS=0,UCBS1ZE UNLOAD, MAXUNITS=8,- 
DEFUNITS=1,0ELIVER, VECTOR, NAME 


SAVE 
SOPTDEF 
ASSUME DPT 3 LENGTH EQ 56 
-PSECT $$$105_PROLOGUE 
-BLKL 2 


-WORD END-DPTSTAB 

-BYTE DYNSC_DPT 

BY 0 

-BYTE AT$_‘ADAPTER' 
FLAGS 

-WORD UCBSIZE 


-WORD DPTSINITAB-DPTSTAB 
«WORD DPTSREINITAB-DPTSTAB 


- IF NB,UNLOAD 
«WORD UNLOAD-DPTSTAB 


-WORD 0 

MAXUNITS 
-WORD DPTSC_VERSION 
~WORD DEFUNTTS 
- IF NB,DELIVER 


-WORD DELIVER-DPTS$TAB 
“WORD 0 

-ENDC 

.1F NB,VECTO! 

-WORD TE CTOR-DPTSTAB 
“WORD 0 

“ENDC 
$$$-. 

-ASCIC /NAME/ 

=$$$+12 
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-MDELETE DPTAB 
-ENDM = DPTAB 
; STORE DPT INITIALIZATION TABLE VALUES 
DPT_STORE STRUC_TYPE,STRUC_OFFSET OPERATION, EXPRESSION,POS,SIZE 


STRUC_TYPE = STRUC TYPE CODE (DDB. UCB, CRB, 1DB) 
aN ln + ae INIT fABLE 


>" 


=o5 "5 


STRU 

ER 
ER, V=FIELD 
SION 


Oo 
"wo 


_ 
S 
So- 


vv 


DPTSINITAB: 
IDN <STR_TYPE>, <REINIT> 


DPTSRE INI 
LIF ION <STR_TYPE> , <END> 


oDO~— DO —toene 
<<" 


DYNSC_ *STR_TYPE 
STR_OFF 


3333 


be bea baa inal) 


C,<OPER> 


DN <C>, <L>, $$OP=$$OP' 
DN <C>,<V>, $$OP=$$0P!4 


ffmpeg 


te ee CE Os CT ps es en he 
RHRNO VWH< 
7 ~—— << 


$$OP-2 
EXP-DPTSTAB 


F NB, BOS, -BYTE POS 
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«LIF NB,SIZE, .BYTE SIZE 

-ENDC 
NDC 
C 


.ENDM  DPT_STORE 
DISABLE INTERRUPTS 
DSBINT IPL,DST 


.MACRO DSBINT IPL, DST 
MFPR = S*#PRS_IPL,-(SP) 
MFPR = S*#PRS_IPL, DST 


1p 
MTPR = #31, S*#PRS_IPL 

MTPR — IPL, S*#PR$_IPL 
.ENDM = OSBINT 


ENABLE INTERRUPTS 
ENBINT SRC 


-MACRO ENBINT SRC 
-I1F B SRC 
are (SP)+,S*#PRS_IPL 
MTPR SRC, S*#PRS_IPL 
. ENDC 
-ENDM ENBINT 


MACRO TO DEFINE SOME OF THE ERROR MESSAGE BUFFER OFFSET VALUES 


CALL: SEMBDEF <LIST> 
WHERE : LIST IS A SERIES OF 2 CHARAC ‘ren CODES FOR THE TYPE 
OF ERROR MESSAGES THE 0 FF SETS ARE DESIRED 
EG: SEMBDEF <BC,CR,DV> 


WOULD DEFINE CODES FOR BUGCHECK,CRASH, AND CEVICE ERROR MESSAGES. 


r 
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MACRO SEMBDEF LiST=<Dv,TS> 
SEMBETDEF ; DEFINE ENTRY TYPE CODES 
: DEFINE HEADER OFFSETS 


-EN 
-ENDM SEMBDEF 


> FUNCTION TABLE ENTRY MACRO 
> FUNCTAB ACTION ROUTINE, FUNCTION CODES 
: NULL ACTION ROUTINE DOES NOT EXPAND A ACTION ADDRESS 


«MACRO FUNCTAB ACTION,CODES 
= 


MASKL 
MASKH = 

-I1F NOT DEFINED FUNCTAB_LEN 
FUNCTAB_LEN = 0 


. IRP X,<CODES> 
F f $_'X810$_VIRTUAL>-31 
MASKH = MASKH!<lacclO$. Ktros VIRTUAL>=32>> 


MASKL = NASKL!<1@<I08_*XG10$_VIRTUAL>> 


7LONG MASKL,MASKH 
FUNCTAB_LEN : "FUNCTAB_LEN + 8 
KCTION 


-1F NB 
GENRADDR ACTION,<,+8> 
rer. LEN = FUNCTAB_ LEN + 4 


GENERATE RELATIVE ADDRESS FOR DRIVER DISPATCH AND FUNCTION DECISION TABLES 
GENRADDR ADDRESS, BASE 

MACRO GENRADDR R ADDRESS, »BASE 

IF IDN <ADDRES 

“et TOCSRETURA 

[IRPC —-X, <ADDRESS> 

If oN <X>, <*> 

-LONG ADDRESS 

-LONG ADDRESS-BASE 

*MEXIT 
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-ENDM 
~-ENDC 
-ENDM GENRADDR 
TEST IF PROCESS HAS SPECIFIED PRIVILEGE AND BRANCH ON TRUE 
IFPRIV PRIV,DEST,PCBREG 


.MACRO IFPRIV PRIV,DEST,PCBREG=R4 
IF DIF <PRIV>,<R1> 
"IF DIF <PRIV> <Ro> 
68s SPRVSV. *PRIV, PCBSQ_PRIV(PCBREG) ,DEST 
BBS PRIV,PCB$Q_PRIV(PCBREG) ,DEST 
Si 
BBS PRIV,PCBSQ_PRIV(PCBREG) ,DEST 

.ENDM =s [FPRIV 


TEST IF PROCESS DOES NOT HAVE PRIVILEGE AND BRANCH ON TRUE 
IFNPRIV PRIV,DEST,PCBREG 


.MACRO IFNPRIV PRIV, DEST PCBREG=R4 
.IF DIF <PRIV>,<Ri> 
IF DIF <PRIV>,<R2> 
BBC #PRVSV_ *PRIV, PCBSQ_PRIV(PCBREG) ,DEST 
BBC PRIV,PCBS$Q_PRIV(PCBREG) ,DEST 
Si 
BBC PRIV,PCB$Q_PRIV(PCBREG) ,DEST 

.ENDM = J FNPRIV 


BRANCH IF RANGE OF ADDRESSES IS NOT READABLE 
IFNORD S1Z,ADR,DEST MODE 


“MACRO IFNORD $12, ADR, DEST ,MODE=0 
PROBER MODE .S 12,ADR 
BEQL DEST 
[ENDM —TFNORD 


BRANCH IF RANGE OF ADDRESSES IS READABLE 
IFRD SIZ,ADR,DEST MODE 


M 
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.MACRO IFRD SIZ,ADR,DEST,MODE=#0 
PROBER MODE.SIZ,ADR 
BN DEST 
.ENDM = IFRD 


BRANCH IF RANGE OF ADDRESSES IS NOT WRITABLE 
IFNOWRT S1Z,ADR,DEST,MODE 


-MACRO penowey aye ADR ait -MODE=4#0 


ODE. 1 


Beare 
-ENDM = =IFNOWRT 


BRANCH IF RANGE OF ADDRESS IS WRITABLLE 
IFWRT SIZ,ADR,DEST MODE 


.MACRO IFWRT S$1Z,ADR,DEST,MODE=#0 
PROBEW MODE,SIZ,ADR 
NEQ DEST 


8 
-ENDM =o IFWRT 


CREATE 1/0 DRIVER FORK PROCESS 


1OF ORK 
«MACRO IOFORK 
JSB G*EXESIOF ORK 
-ENDM IOFORK 


CREATE FORK PROCESS 


FORK 
«MACRO FORK 
JSB G*EXESF ORK 
-ENDM FORK 


FORK AND WAIT (for from 0 to 1 seconds) 
FORK_WAIT 


- MACRO Ay WAIT 
JSB ~ G*EXESFORK_WAIT 


——-— 


N 
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.ENDM = FORK_WAIT 


INVALIDATE TRANSLATION BUFFER 
INVALID ADDR,REG 


MACRO INVALID ADDR, REG 
MTPR = #0, S*#PRS_TBIA 


REG 
MTPR ADDR, S*#PR$_TBIS 
ADDR, REG 
MTPR REG, S*#PR$_TBIS 
-ENDC 
.ENDM = INVALID 


> LOAD PO SPACE LENGTH REGISTER 
: «MACRO LDPOLR SRC 
MIPR = SRC, S*#PRS_POLR 
.NLIST MEB 
“ENDM LDPOLR 
> LOAD P1 SPACE LENGTH REGISTER 
.MACRO LDPILR SRC 
“LIST «M 
MTPR SRC, S*#PRS_PILR 


«NLIST 
-ENDM LDPILR 


LOAD MBA MAP REGISTERS 


-MACRO LOADMBA 
JSB G*10C$LOADMBAMAP 
-ENDM LOADMBA 


LOAD UBA MAP REGISTERS 


-MACRO LOADUBA 
JSB G* 10C$LOADUBAMAP 
-ENDM LOADUBA 


$ LOAD UBA MAP REGISTERS = ALTERNATE ENTRY POINT 
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«MACRO LOADUBAA 

JSB SL DUEL GADUBARAPA 

-ENDM LOADUBA 
LOCK = MACRO TO SET A LOCK BIT AND RETRY IF SET FAILS 
INPUTS: 


= BIT POSIT 
E 


Fietp = BAS 
OUTPUTS: 
RO = SUCCESS IF FLAG CHANGED 
_ EX XESGL_LOCKRTRY RETRIES 
FAILURE IF RETRIES EXCE 
bE CHANGED. 
IF SUCCESS: 


(SP) = PREVIOUS IPL AND CURRENT IPL = 31. 


OSITION TO SET 
OF FIELD IN WHICH FLAG IS TO BE SET 


FROM CLEAR TO SET STATE IN 
EDED BEFORE FLAG'S STATE COULD 


Bete Ce Ge Se Se Ge Ge Ge OH Se Se Se Ge Ge Se Ge Ge Ge Se 


«MACRO LOCK FLAG FIELD, 27EXIT,?ERROR,?TRY 
L G*EXESGL _LOCKRTRY,R RO 


FLAG, FIELD, ERROR 
#1,RO 

B EXIT 

SOBGTR RO,TRY 

.ENDM LOCK 


UNLOCK = MACRO TO CLEAR A LOCK BIT 
INPUTS: 


FLAG = BIT POSITION TO CLEAR 
FIELD = BASE OF FIELD IN WHICH FLAG IS TO BE CLEAR 


(SP) = PREVIOUS IPL 
OUTPUTS: 
FLAG CLEARED AND PREVIOUS IPL RESTORED. 
MACRO UNLOCK FLAG,FIELD,?EXIT 
BBCCI FLAG,FIELD,EXIT 


n” 
— 
(Fa) 


z@ 
mm 
a 


+ 


rc 
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ENBINT 


.MACRO PF I1GPFN_THEN 
“MACRO PF 
“MACRO PF F 


N_DISP_IF_B 
N_DISP_ELSE 
N_DISP_ENDI 
The following three macros provide a transparent method of making an 
execution time decision on which code path to execute, depending on 

the size of physical memory. This series of macros is provided for 

the case where more than one instruction depends on phystcet memory 
size. A single instruction that differs in more than the choice of 
opcode must also use this macro. When a single instruction that differs 
only in its opcode is the issue, the PFN_REFERENCE macro should be used. 


The actual logical construction is as follows 


PFN_DISP_IF_BIGPFN_THEN ; IF FLINK and BLINK are longword arrays THEN 
ock of code with longword references 

PFN_DISP_ELSE ; if FLINK and BLINK are word arrays) 
lock of code with word references (This block is optional.) 

PFN_DISP_ENDIF 


These macros are currently implemented with byte branch displacements for 
both the THEN and ELSE pieces. If necessary, the macros could be enhanced 
to generate the correct branches when word displacements are required. 


~MACRO PFN_DISP_IF_BIGPFN_THEN END_BIGPFN_CODE ,MODE 


The first argument to the PFN_DISP_IF_BIGPFN_THEN macro is the Label 

of the end of the block of code that éxecutes in the event that more 
than 32 Mbytes of physical menory is present (which implies that FLINK 
and BLINK are longword arrays). This label may either locate a block 

of code that executes in the event that the FLINK and BLINK arrays are 
word arrays (IF-THEN-ELSE construction) or it any locate the end of code 
that depends on the size of the PFN Link arrays (IF-THEN construction>. 


Sete Se Se Se Ge See Se Se Se Se Se Se Se Se Ge Ge Se Se Se Se Se 


The second argument allows an addressing mode other than general (G*) 
to be selected in special cases where the Linker's default selection 
would be incorrect. 


.MACRO PFN_DISP_IF_BIGPFN_THEN END_BIGPFN_CODE=10$ ,MODE=G* 
TSTW MODE 'MMGSGW-BIGPFN 
BEQL END_BIGPFN_CODE 


:This code executes if the PFN Link arrays are longword arrays.; 
-ENDM PFN_DISP_IF_BIGPFN_THEN 


The code that executes for large physical memory sizes is sandwiched 
between the PFN DISP_IF BIGPFN_THEN macro and either a PFN DISP_ELSE 
macro or a PFN_DISP_ENDIF macro. This is the ‘‘then’’ half of the 
conditional and contains longword references to the FLINK and BLINK 
arrays. 
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-MACRO PFN_DISP_ELSE ELSE_CODE,COMMON_CODE 


There are two parameters for this macro. The iret parameter is the Label 
where the word code begins. The second parameter is the Label where 
PFN-dependent code ends and common code begins. 


-MACRO PFN DISP_ELSE ELSE_CODE=10$, COMMON_CODE=20$ 
BRB COMMON_ CODE 


- SHOW 

:This code executes if the PFN Link arrays are word arrays.; 
. NOSHOW 
ELSE_CODE': 

-ENDM PFN_DISP_ELSE 


; The code that executes for small physical memory sizes is sandwiched between 

; the PFN_DISP_ELSE and PFN_DISP_ENDIF macros. This is the "‘else’’ half of the 

; conditional and contains word references to the FLINK and BLINK arrays. 
-MACRO PFN_DISP_ENDIF COMMON_CODE 


: The single parameter for this macro is the Label where the two code 
; paths rejoin into a single code path. Note that the default parameters 
: an 


to this series of macros assumes an IF-THEN-ELSE construction. If 
IF THEN construction is used, an explicit parameter must be supplied 
to the PFN_DISP_ELSE macro. 


-MACRO PFN_DISP_ENDIF COMMON_CODE=20$ 
zEnd of code that depends on size of PFN Link arrays; 


COMMON_CODE' : 
.ENDM PFN_DISP_ENDIF 
“MACRO PFNTREFERENCE 


The PFN_REFERENCE macro replaces all single instruction references 
to the PFN array elements whose size depends on physical memory size. 
These arrays are 


FLINK Forward Link Array 

BLINK Backward Link Array 

SHRCNT Global Share Count ay | (Overlays FLINK) 
WSLX Working Set List Index Array (Overlays BLINK) 


The macro records the address of each such tnetrustion. as . as the 
opcode that must be used in the event that there is more than 32 Mbytes 
of physical oe present. As a precautionary measure. a third table 
contains the original opcode to allow verification while the fixups 
are taking place. The ecdress and opcode tables are used by 
NIT to do tstrap-time fixups in the event that there is gore than 
Mbytes present. If INIT detects that there is Less than 32 Mbytes 
resent, ngshing is done. That is, the default case is a system with 
ess than 32 Mbytes, with the relevant PFN array elements as words. 


Note that opcode fixups can only be done on the nonpaged portion of 
SYS.EXE. To allow for opcode selection in other places, 


SS SSS esses ese —" —_— 
co - EO rae ee ee 
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the macro also provides for an execution time gecis tan in the -vent that 
aphn y ehe cannot be fixed up by INIT. This $ 


kind of decision must 


© paged executive routines 
© dynamically loaded code (such as machine check handlers) 
oO any external routine or image (including XDELTA) 


The macro also provides for two-byte opcode because er are sO easy 
to include. This avoids lots of problems in the event tha 
opcodes are used by memory management in the future. 


t two-byte 


Parameters: 


WORD_OPCODE Opcode for word reference (inserted into SYS.EXE) 


OPERANDS Operands of instruction 
LONG_OPCODE Opcode for longword reference (stored in table) 
IMAGE Set to ""SYS_NONPAGED'' if INIT does opcode fixup. This 


setting should only be selected for references in the 
nonpaged portion of SYS.EXE. 


MODE Defaults to G*. This parameter can be set to af or 
to L* when the Linker’s default selection for G* 
addressing would be inappropriate, such as in 
module SHELL. 


OPCODE_SIZE Set to ""TWO_BYTE’’ for two-byte opcode 
(The two-byfe material in the macro is currently 
commented out because there is no example of a 
two-byte opcode reference to the PFN data base.) 
-MACRO PFN_REFERENCE = 
wORB_OPC 7 
OPERANDS ,- 
LONG_OPCODE ,- 
IMAGE=NOSYS,=- 
MODE=G*,- 
OPCODE_ TEA gNE BYTE .~ 
7L_10$, ?7L_20$ 
IF IDENTICAL <IMAGE>,<SYS_NONPAGED> 
SOPDEF 


oo ePFN = — 
» SAVE PSECT LOCAL BLOCK 
-PSECT ZSINITSPFN_FIRUP_TABLE 


" IDENTICAL <OPCODE_SIZE>,<TWO_BYTE> 
ADD -»»PFN ; Store data about low byte of opcode 
“BYTE <OPS_woRD_OPCODE>E*x Orr 


-BYTE _<OP$~"LONG_OPCODE> 
ADDRESS -+ePFN ¢ 1 ; Store data about high byte of opcode 
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-BYT 
-BYT 


-BYTE OP$S_‘WOR 


$<OPS__; WORD_OPCODEDB"x 
<<OP$~"LONG-OPCODE>&*X 


FN 
Dd oh 4 4 


-BYTE OP$""LONG_OPCOD 


-ENDC 
»-RESTORE PSECT 
WORD_OPCODE 


~ IF FALSE 
TSTW 

BNEQU 
Se aes 


L_10$: LONG_OPCODE 


.ENDC 
.ENDM PFN_REFE 
+ PURGE DATA PATH 


-MACRO PURDPR 
-ENDM PURDPR 


2¢ 
; QRETRY = EXECUTE AN INTERLOCKED QUEUE INSTRUCTION AND RETRY IF FAILURE 


INPUTS: 


RO = DESTROYED. 
C-BIT = CLEAR IF 


REMQT!I OR REMQHI 
V-BIT = 


ERA 
SET IF OPERATION 
(MUST BE CHECK 


OPERANDS 


‘en Wainemeeaenetben 
L_10$ 

OPERAS 

L_20$ 

OPERANDS 


RENCE 


G* IOCSPURGDATAP 


AT 
F 


oP 


CLEAR IF 
SET IF NO 


F 
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FF 
FF 


ION SU 
ALLS T 
ION FAILS. 
FALLS THRU. 


09 


>a- 
>a- 


CC 
HR 


REMQHI ,REMQTI. 


EEDS. 
U. 


21 
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INSQT] OR INSQHI = 


Z7-BIT = CLEAR IF ENTRY IS NOT FIRST IN QUEUE. 
SET IF ENTRY IS FIRST IN QUEUE. 


— a OPCODE ,OPERAND1 ,OPERAND2, SUCCESS ,ERROR, ?LOOP, 70K 


OPCODE OPERAND1 ,OPERAND2 


LOOP: 
.1F NB SUCCESS 
BCC SUCCESS 
w1FF 
BCC OK 
BRB ERROR 
-ENDC 

OK: 
.ENDM  QRETRY 


REQCOM 


1/0 REQUEST COMPLETE 


MACRO REQCOM 


-ENDM 


RELCHAN 


REQCOM 


RELEASE ALL CHANNELS 


MACRO RELCHAN 


© ENDM 


RELSCHAN 


JSB 
RELCHAN 


-ENDC 
AOBLSS G*EXESGL_LOCKRTRY,RO,LOOP 
IF NB ERROR 


G*10C$REQCOM 


G* IOCSRELCHAN 


RELEASE SECONDARY CHANNEL 


«MACRO RELSCHAN 


-ENDM 


JSB 


G* IOCSRELSCHAN 


RELSCHAN 


> RELEASE UNIBUS DATAPATH 
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-MACRO RELDPR 
JSB G* IOCSRELDATAP 
-ENDM RELDPR 


: RELEASE UNIBUS MAP REGISTERS 


-MACRO RELMPR 
JSB G* 1OCSRELMAPREG 

~ENDM RELMPR 

REQUEST PRIMARY CHANNEL 

REQPCHAN PRI 
.MACRO REQ 

IF NB PRI 

IF IDN <HIGH>,<PRI> 

SB G* 1OC$REQPCHANH 


G* 1OCSREQPCHANL 


$B G* 10CSREQPCHANL 


Me f&se © fe Ge es 
=so~ 
~> nn 
mat 4 ~ 
o 


REQUEST SECONDARY CHANNEL 
REQSCHAN PRI 


-MACRO R 


oe fT 


I 
IDN <HIGH>,<PRI> 

G* 1OCSREQSCHANH 
G* 1OCSREQSCHANL 


—Mmne 
i | i | 
oO 


G* 1OCSREQSCHANL 


Me fe © Ge Ge es 


oT 
as 
a 


> REQUEST UNIBUS DATAPATH 


MACRO REQDPR 
JSB G* IOCSREQDATAP 
-ENDM REQDPR 
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REQUEST UNIBUS MAP REGISTERS 


-MACRO REQMPR 
JSB G* 1OCSREQMAPREG 
-ENDM REQMPR 
REPORT SYSTEM EVENT 


RPTEVT EVENTNAME 


-MACRO apyeese oNAME ,CALL_TYPE=BSB 


" IDENTICAL <CALL_TYPE>, <JSB> 

js8 G*SCHSRSE 

IF _FALSE 

B80 SCHSRSE : 

“BYTE EVTS_'"NAME : 

-ENDM = =RP : 

; SAVE PROCESSOR INTERRUPT PRIORITY LEVEL : 
> SAVIPL DST 


- MACRO soygrk DST=-(SP) 
FPR S*#PRS$_IPL,DST 
- ENOM SAVIPL 


SET PROCESSOR INTERRUPT PRIORITY LEVEL 
SETIPL IPL 


-MACRO SETIPL IPL 

NB IPL 
MTPR IPL, S*#PRS_IPL 
MTPR = #31, S*#PRS_IPL 
.ENDM§ 


INITIATE SOFTWARE INTERRUPT 
SOFTINT IPL 


»MACRO SOFTINT IPL 
MTPR IPL, S*#PR$_SIRR 
ee ~-ENDM = =SOFTINT 


: Macro to wait for a specific bit to become set/clear within a 
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spect ties snservet of time. Uses a processor specific value 
established by ee bootstrap to determine an approximate interval 
of time to wait instead of reading the processor clock. 


INPUTS: 


TIME = the number of 10 micro-second intervals to wait 
BITVAL = value of the bit(s) to test, 1e@es the operand 
n 


: ecifier of the mask for a BITx instruction 
SOURCE = the pores greraga :h, fier of the location to test 
CONTEXT = “etther ‘~w", "L" specifying the context of 


Bay Fs ° tno 4 urce operand 
SENSE - A. HE to test fo the bit to be set or for it to be 
gleared,, Deyoytt cOjenkd is for set. Else, specify 
. 


OUTPUTS: 


RO = indicates success of failure status. Success is defined as 
tod g aan J at the specified sense within the specified 
nter 
R1 = destroyed, all other registers preserved. 


-MACRO TIMEWAIT TIME,BITVAL,SOURCE,CONTEXT,SENSE,?L1,?L2,?7L3 


MOVZWL #SS$ Sir RO ssume succes 

MULL3 TIME 7G*EXE GL. TENUSEC.R1: Catcutate the. time interval count 

CLRL P 3; Reserve apace for delay loop index. 
Li: BIT’ CONTEXT" BITVAL,SOURCE ; Test the 


.1F BLANK SENSE 
OnEG aL A’ 3; Conditionally branch on sense 
“IFTIDENTICAL SENSE . TRUE. 


Iteration count for delay loop. 
gotey sep fo slow bit tests down 
to allow Unibus DMA to occur while 
; testing a device register. 

; Decrement interval count 


MOVL G*EXESGL_UBDELAY, (SP) 
L3: SOBGTR (SP),L 


SOBGTR R1,L1 
CL RO 


L2 RL ; Count expired, return failure 
: TSTL (SP)+ 3; Pop delay loop index off stack. 
~ENDM 


jee 
3; TIMEDWAIT = Timed Wait Loop with Imbedded Tests 


; Macro to wait for a specified interval of time. Uses a processor 


K 
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specific val ye cotapt tehes by systen peotetees to ret ate an 
approximate Ynterval of time to wa nstead of reed h 

processor clock. In erst tone that test for various anit conditions 
may be imbedded within the wait Loop, so desired. 


INPUTS: 


the number of 10 micro-second intervals to wait 
first instruction to imbed within wert Loop 
thing instruction to imbed within wait loop 
hird instruct gn to imbed within weet Loop 
rth instruction ce, imbed within we t (ose 
H fth instruction to imbed within wait loop 
sixth instruction fo ns al within wait loop 
L - label for exit from wa 007 
IMBEDLBL = Label for imbedded ate Bn ons in wait loop 
UBLBL - Label for UNIBUS SJBGTR loop 


OUTPUTS: 


RO - pnaseutee Ig as ney of failure status. Success is defined as 
e bi J at the specified sense within the specified 


= 
@Mrertetentene 


OD es se es 
MOwWlwrem 


4 


ofl esree 
Ri = destroyed, all other registers preserved. 


Sete Se Se Se Fe Se Se Se Se Se Sete Se Se Sse Se Sete te Sete sete ee ee 


«MACRO TIMEDWAIT TIME, INS1,INS2,INS3,INS4,INS5,INS6,DONELBL,?1MBEDLBL, ?7UBLBL 


enlist cnd 

MOVZWL #SS$_NO Assume success 

MULL3 TIME eee sel TENUSEC,R1: Calculate the time interval count 

CLRL -(SP5 3; Reserve space for delay loop index. 
IMBEDLBL: 

*INS1° 

*INS2° 

"INS e 

*INS4* 

*INSS' 

*INS6° 

L Iteration count for delay loop. 


MOV G*EXESGL_UBDELAY, (SP) 
UBLBL: SOBGTR (SP),UBLBL 
low Unibus DMA to occur while 
testing a device register. 
Decrement interval count 
Count expired, return failure 


to af loop to slow bit tests down 


SOBGTR R1,IMBEDLBL 
CLRL R 


IF NOT_BLANK, DONELBL 
DONELBL : 

. ENDC 

TSTL (SP)+ 

- ENDM 


WAITFOR INTERRUPT OR TIMEOUT AND KEEP CHANNEL 
WFIKPCH EXCPT, TIME 


Pop delay loop index off stack. 


SYSMAR .MAR; 1 16-SEP-1984 17:07:14.78 Page 27 


MACRO WF IKPCH EXCPT, TIME 
ASHE nena .=(SP) 
PUSHL TIME 
.ENDC 
jSB G*10CSWFIKPCH 
~WORD EXCPT-, 

.ENDM = WFIKPCH 


WAITFOR INTERRUPT OR TIMEOUT AND RELEASE CHANNEL 
WFIRLCH EXCPT,TIME 


MACRO se ee EXCPT, TIME 
7 #16,41,-(SP) 
PUSHL TIME 
NDC 
JSB G*1OCSWFIRLCH 
-WORD EXCPT-, 
-ENDM WFIRLCH 
System Communications Services (SCS) Macros 
ACCEPT = Accept a connection request 


.MACRO ACCEPT, MSGADR=0 DGADR=0, ERRADR, INI 
pG=#6, BLKPRI=#0, CONDAT= 
PUSHAB aReTe 


SPUSHADR BADRSP 

SPUSHADR AUXSTR 

SPUSHADR CONDAT 
MOVZ7BW PL EPRI owt er? 
MOV INITDG 


MOV MINSCR,-(SP) 
MOVW INITCR,=(SP) 
IF B ERRADR 
eERROR 99 ; Error address parameter is required ; 


PUSHAB ERRADR 


. ENDC 

SPUSHADR DGADR 

SPUSHADR MSGADR 
GLOBAL __SCSS$ACCEPT 
JMP G*SCSSACCEPT 


TCR=#0 ,MINSC 
0, AUXSTR=0,8 ttre =0, ?RETADR 


RETADR: 
-ENDM = ACCEPT 


; ALLOC_DG_BUF =- Allocate a datagram buffer 
, -MACRO ALLOC_DG_BUF 


“” 
= 


Sete Ge Se Ge Ge Ge Se Oe Se Se ee 
@aeeeeeeeeeane 
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JSB ao ha ~ALLOCDG(R4) 
-ENDM ALLOC -0G_BUF 


5 ALLOC_MSG_BUF = Allocate a message buffer 
-MACRO ALLOC_MSG B 
SPDTSL ALLOCMSG(R4) 
-ENDM ALLOC_MSG_BUF 
: ALLOC_RSPID = Allocate a response id 
-MACRO ALLOC_RSPID 
G*SCSSALLOC_RSPID 
-ENDM — ALLOC_RSPID 
: CONFIG_PTH = Get path configuration information 
, .MACRO CONFIG_PTH,STAADR=0, OUTBUF =0 
SMOVEADR STAADR, Ri 
On See. S 
-ENDM CONFIG_PTH 
: CONFIG_SYS = Get system configuration information 
; -MACRO CONFIG SYS,SYSADR=0,O0UTBUF=0 
SMOVEADR SYSADR, Ri 
SMOVEADR OUTBUF, R2 
JSB *G*SCSSCONFIG_ SYS 
~ENDM CONF 1G_ SYS 
: CONNECT = Initiate a virtual circuit conncection 
~MACRO CONNECT MSGADR=0 amine yr NSCROAO, INI 
RP LPRNAM=0, IN 40. MI 
BLKPRI=A6, CONDAT=6, NUXSTRe oS CREO AR 


SPUSHADR BADRSP 


R2 
G*SCSSCONFIG_PTH 


SPUSHADR RPRNAM 
$PU 


eERROR 99 ; Error address parameter is required ; 
PUSHAB ERRADR 

»ENDC 

SPUSHADR DGADR 

SPUSHADR MSGADR 
JMP G*SCSSCONNECT 


“ 
=< 
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RETADR: 
.ENDM CONNECT 
; DEALLOC_DG_BUF - Deallocate a datagram buffer 
: -MACRO DEALLOC_DG BUF 
“aPBTSL_DEALLOCDG(R4) 
-ENDM DEALLOC_DG_BUF 
$ DEALLOC -MSG_BUF = Deallocate a message buffer 
: .MACRO DEALLOC _MSG BUF 
“a@PDTS$L_DEALLOMSG(R4) 
.ENDM DEALLOC _MSG_BUF 
; DEALLOC -"SG_BUF_REG = Deallocate a message buffer 
-MACRO DEALLOC_MSG 
aPpor t TDEALRGRSG(R4) 
-ENDM DEALLOC ASG _BUF_R 
: DEALLOC -RSPID = Deallocate a response id 
: -MACRO DEALLOC_RSPID 
“G*SCS$DEALL_RSPID 
-ENDM DEALLOC_RSPID 
> DISCONNECT = Break a virtual circuit 
; -MACRO DISCONNECT,DISTYP 
.1F NB DISTYP 
MOVL DISTYP, RO 


-ENDC 
JSB G*SCSSDISCONNECT 
-ENDM DISCONNECT 


> FIND -RSPID_RDTE = Locate and validate the RDTE for a given response ID 
«MACRO FIND_RSPID_RDTE 
G*SCSS$F IND_RDTE 
-ENDM FIND _RSPID RDTE 
LISTEN = Listen for incoming CONNECT requests 


-MACRO LISTEN, MSGADR=0,ERRADR,LPRNAM=0,PRINFO=0, ?RETADR 
PUSHAB. B*RETADR 


ERROR 99 3; Error address parameter is required ; 

a PUSHAB ERRADR 
SPUSHADR MSGADR 
LOBAL 
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RETADR: 
-ENDM LISTEN 


++ 
: LOADVEC = conditionally defines a vector or a relative offset. 


TYPE = Vee of vector (or offset) to create. 
alid types are: 
1 : aligned jangwore of data 
: aligned JMP 
: una q a JMP 
4 : specified data 
5 : specified JMP 


; ENTRY = entry point Label of the routine to be loaded. If 
3 PRMSW is not defined, a vector with this Label will 
3 be defined in system space. 


DEF _RTN = Address of a default routine. This address is the 
initial target of the JMP vector. This address is 
replaced with the actual routine address when the 
code is loaded (by EXESLINK_VEC). 


SEC_LABEL=Label within the code if different from the SYS 
entry name. (Required for types 4 and 5). 


.MACRO LOADVEC ENTRY, TYPE=3,DEF_RTN=EXESLOAD_ERROR, SEC_LABEL 


IF LE, TYPE ; Check for valid TYPE code 
- ERROR ; Illegal value; 1 <= VALUE <= 3 


FF 
If GT, TYPE-5 
. ERROR ; Illegal value; 1 <= VALUE <= 3 


-ENDC 
~ENDC 
IF NDF ,PRMSW :; For Linkage with SYS.EXE,... 
: Handle type 1, longword data items 

.IF ‘EQ, TYPE=1 

ALIGN LONG 

ENTRY:: 3; Define system vector 
-LONG 0 
~ENDC 


> Handle type 2, aligned JMP 
“IF ‘EQ, TYPE=2 


LONG 
ENTRY:: ; Define system vector 
JMP a" DEF _RTN 
ENDC 
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3 Handle type 3, unaligned JMP 


-IF «EQ, TYPE=3 
JMP a#"DEF_RTN 
ENDC 


ENTRY:: Define system vector 


; Handle type 4, specified Data 


IF 1YPE=4 
ALIGN EP ONe 


-LONG 0 
- ENDC 


ENTRY:: Define system vector 


> Handle type 5, specified jump 


see "IF EQ, TYPE-5 i 

° e n t 

JMP  @#"DEF_RTN e system vector 
ENDC 


For Linkage with loadable code 
(For types = 1,2,3) 


o IFF 
IF LF. TYPE=3 
.BYTE TYPE 
IF _——, _SEC LABEL 
° LONG NTRY-.> 


a | 
goes <SEC_LABEL-.> 
- IFF 
-IF _LE,TYPE=5 
-BYTE TYPE 
-ADDRESS ENTRY 
-LONG <SEC_LABEL-.> 


For Linkage with loadable code and 
SYS.STB (For types = 4,5) 


.ENDC 
.ENDC 
.ENDM 


MAP - Map a buffer for block transfer 

-MACRO 
: -ENDM 
: MAP_BYPASS = Map a buffer for block transfer and bypass 


MAP 
JSB @PDTSL_MAP(R4) 
MAP 
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«MACRO MAP_BYPASS 
ore. _MAPBYPASS(R4) 
: -ENDM MAP_BYPASS 
; MAP_IRP = Map a buffer for block transfer, extract 
5 -MACRO MAP_IRP 
JSB @PDTSL_MAPIRP(R4) 
-ENDM MAP_IRP 
MAP_IRP_BYPASS = Map a buffer for block transfer, extract 
-MACRO MAP_IRP_BYPASS 
“a@PDT$iL_MAPIRPBYP(R4) 
-ENDM MAP_IRP_BYPASS™ 
MRESET = Reset remote port and system 
-MACRO MRESET,RSTADR,FLAG=40 
MO FLAG,RO 
SMOVEADR RSTADR,R1 
JSB @PDTSL_MRESET(R4) 
-ENDM MRESET 
MSTART = Start remote port and system 
-MACRO MSTART, eens 
SMOVEADR RSTADR,R1 
MOVL S 


TART ,R2 
ISB" aPDTSL -MSTART(R4) 
-ENDM = MSTART 


QUEVE_MULT_DGS = Add or subtract buffers from the datagram 
-MACRO QUEUE _MULT_DGS ,NUMBUF 
-1F NB NUMBU 
MOVL NUMBUF, R1 


-ENDC 
JSB @PDTSL_QUEUEMDGS (R4) 
-ENDM QUEUE_MULT_DGS™ 


QUEUE _DG_BUF = Queue a datagram buffer for receive 
-MACRO rs _oG_B 
SPOTSL QUEUVEDG(R4) 
-ENDM QUEUE _DG_BUF 
READ_COUNTERS = Read and initialize port counters 
MACRO READ COUNTERS, RSTADR=0,LPRNAM 
SMOVEADR RSTADR,R 
SMOVEADR LPRNAM,R 
JSB @PDTSL_READCOUNT (R4) 
-ENDM READ. COUNTERS ~ 
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; RECYCL_MSG_BUF = Recycle a message buffer,low 
: -MACRO RECYCL_MSG BUF 
J aPBTSL_RCLMSGBUF (R4) 
; ~-ENDM RECYCL_MSG_BUF~ 
; RECYCH_MSG_BUF = Recycle a message buffer,high 
-MACRO RECYCH_MSG BUF 
aPbT L _RCHMSGBUF (R4) 
-ENDM RECYCH_MSG_BUF 
; RECYCL_RSPID = Recycle a response ID 
-MACRO RECYCL_RSPID 
G*SCSSRECYL_RSPID 
-ENDM = RECYCL_RSPID 
; REJECT = Reject a connection request 
«MACRO REJECT,REJTYP 
-1F NB REJTYP 
MOVL REJTYP, RO 


-ENDC 
JSB @PDTSL_REJECT(R4) 
-ENDM REJECT 


; REQUEST_DATA = Request block transfer data 


.MACRO REQUEST_DATA,? 
JSB G*SC agi! RSPID 
JSB SPD rst AALLOCRSG(R4) 
BLBC 


RO 
i. JSB aPOTSL _REQDATA(R4) 
-ENDM REQUEST_DATA 

; RLS_COUNTERS - Release counters 

-MACRO RLS_COUNTERS 

@PDTSL _RLSCOUNT(R4) 
-ENDM —- RLS_COUNTERS 


; SCAN_MSGBUF _WAIT = Scan message buffer and send credit wait queues for 
; CORP With given CDT 


~MACRO SCAN teat 5’ WAIT, ACTION 


MOVAB ON, 
JSB GUSCSSLKP -MSGWAIT 
-ENDM SCAN -MSGBUF _WAIT 


> SCAN_RDT = Scan RDT for CORP with given CDT 
MACRO SCAN_RDT, ACTION 

MOVAB ACTION, R 

JSB ss G*SCSS/KP_RDTCDRP 
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.ENDM = SCAN_RDT 
; SCANRSPID.WAIT = Scan RSPID wait queue for CDRP with given CDT 
“MACRO SCAN. RSPID WAIT. ACTION 
MOV 


$B GESCSSLKP -RDTWAI) 
-ENDM SCAN_RSPID_WAIT 


; SEND_DATA = Send block transfer data 
-MACRO SEND_DATA,?L1 
JSB G4SCSSALLOC_RSPID 
388 at ALLOTMSG(R4) 
BLBC Oi 
. JSB SPOTSL._ SENDDATA(R4) 
-ENDM  SEND_DATA 
: SEND_DG_BUF = Send a datagram 
; -MACRO_ SEND_DG_BUF .FLAG 
F NB F 
MOVL FLAG, RO 


JSB ore. SENDDG(R4) 
-ENDM SEND_DG_BUF 


; SEND_DG_BUF _REG - bend a datagram without a CDRP. 
MACRO SEND_DG_BUF _REG, FLAG, CDT=,BUFFER=,SIZE= 
-1F NB FLAG 
MOVL FLAG,RO 
-ENDC 
-1F NB COT 
MOVL CDT,R3 


- END 
-IF NB BUFFER 
MOVL BUFFER,R2 


-ENDC 
-IF NB SIZE 
MOVL SIZE,R1 


. ENDC 
JSB @PDTSL seronens (as) 
-ENDM = SEND_DG_BUF _REG 


SEND_CNT_MSG_BUF = Send a message with byte count 
-MACRO SEND. CNT_MSG_BUF 
JSB SPDTSL_SNDCNTMSG(R4) 
-ENDM SEND_CNT_MSG_BOF 
SEND_MSG_BUF = Send a message 


- MACRO se -"SG_BUF 
SPDTSL_SENDMSG(R4) 


F 
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-ENDM SEND_MSG_BUF 
UNMAP = Unmap a buffer for block transfer 
«MACRO UNMAP 
JSB @PDTSL_UNMAP(R4) 
-ENDM UNMAP 
Macros for invocation of Machine Check recovery blocks 
SPRICTINI = set start of recovery block 
LABEL = "ne of recovery block Label (must be same Label as SPRTCTEND) 
MASK = bit mask for types of errors to protect against 
-MACRO SPRICTINI LABEL,MASK 
PUSHAL LABEL 
MOVL MASK ,RO 
JSB G*EXESMCHK_PRTCT 
~ENDM 


SPRICTEND = macro for defining end of current recovery block. 
LABEL = end of recovery block label (must be same as in $SPRTCTINI) 


-MACRO SPRTCTEND LABEL 
RSB 


SPRICTEST = test to see if recovery block in effect for current error 
ADDRESS = pointer to PC,PSL pair of error interrupt on stack 
MASK = bits defining type of error 
-MACRO SPRTICTEST ADDRESS ,MASK 
MOVAL  ADDRESS,R1 
MOVL MASK ,R 
JSB G*EXESMCHK_TEST 
-ENDM 


SBUGPRTCT - Macro to test whether or not recovery block in effect 
for this BUGCHECK 
Arguments already on current (Interrupt) stack 


-MACRO SBUGPRTCT 
JSB G*EXESMCHK_BUGCHK 
-ENDM 


SYSTEM LOADABLE VECTOR TABLE 
SLVTAB END, INITRTN,SUBTYP,PROT_R,PROT_W,FACILITY 


END = Address at end of image 
INITRIN = Address of Initialization Routine 


SYS 


PRE 


} 
H 
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3 SUBTYP = Sub type of image 
3 PROT.R = Page protection to be applied to writeable image 
3 PROT W = Pa ’ protection to be applied to read-only image 
: FACILITY= facility name 
: SYSVECS = Address of vectors in SYS.EXE 
i gRAcro. SLVTAB END, INITRTN,SUBTYP=0,PROT_R,PROT_W, FACILITY, SYSVECS,?L1,?L2 
9 SPRIDEF 
; .LONG END=L1 

-I1F NB INITRIN 

LONG INITRTN=L1 

“LONG 0 

~ENDC 

»WORD END-L1 

-BYTE DYNSC_LOADCODE 

-BYTE SUBTYP 

.IF NB PROT_R 

-BYTE PROT_R 

“BYTE PRTSC_ER 

~ENDC 

.IF NB PROT_W 

-BYTE PROT_W 

“BYTE PRTSC_EW 

~ENDC 

-WORD 0 

-I1F NB SYSVECS 

oApeness SYSVECS 

“LONG 0 

.ENDC AOC 
L2: eS /FACILITY/ 

-=L2+16 


-MDELETE SLVTAB 
-ENDM = SLVTAB 


TEST WHETHER THIS SYSTEM IS A MEMBER OF A CLUSTER AND 
BRANCH IF IT IS A MEMBER 


IFCLSTR DEST 
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«MACRO DEST 
G*CLUSGL_CLUB 

DEST 
-ENDM 


TEST weer 1 I 


HIS 
BRANCH IF IT IS NO 
IFNOCLSTR DEST 


SYSTEM IS A MEMBER OF A CLUSTER AND 
T A MEMBER 


.MACRO IFNOCLSTR DEST 
TSTL  G*CLUSGL_CLUB 
BEQL 

.ENDM —- IFNOCLSTR 


Macros to allow declaration of Adapter kypes and Adapter initialization 
routines. These macros are meant to be invoked in modules that are Linked 
into SYSLOAXXX.EXE images. 


++ 
Macro ADAPDESC. 
OE ae NUM_PAGES, INIT_ROUTINES, and ADAPTERS arrays. 


ADPTYPES - List of specific nexus device (adapter) Sypes that conform 
to the general type described by the remainder of the input 
arguments. 

NUMPAGES - The number of pages required for the adapter's register 


space. 
INITRIN = the name of an adapter-specific initialization routine. 


Note: Each invocation of this macro corresponds to 1 ‘general’ adapter type. 
Each element in an ADPTYPES List corresponds te 1 ‘’specific’’ type. 


Note: This macro is invoked in one of two environments. These environments 
are defined by whether or not the symeet SSSVMSDEFINED is defined or 
not. When the symbol is defined, this means that we are expanding an 
invocation of the acere supported by ah a! appearing in the module 
INIADPxxx, whereas, if the . is NOT defined, this is a user 
written invocation. The only difference in the compiled data is that 
@ separate set of .PSECT’s are used for the two environments. 


ae ADAPDESC ADPTYPES ,NUMPAGES,, INI TRTN 


; Create three arrays; a List of specific device type codes (NDT$_) 
> @ NUM_PAGES array that contains the number of pages to be mapped for each 
; corresponding device types, and the INIT_ROUTINES array that contains 

; self relative addresses of initialization routines for the corressoneing 


; device types. Each array is contained in two .PSECTs, with the first 


SYS 
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; such .PSECT of a pair, contorovng OIGITAL contributions and the second 


: -PSECT containing user contributions. 
' - IRP ADPTYPE ,ADPTYPES ; Repeat for each unique adp type... 
if DF SSSVMSDEF INE :; If VAS distributed software. 


-PSECT SSSINITSDATA 


iff ; If user written invocation. 

-PSECT SSSINITSDATA! 
-endc 3 End .PSECT selection conditional. 
-LONG ADPTYPE ; Add an entry to ADAPTERS array. 
if DF seeyvnsoes int 3; If VAS distributed software. 

-PSECT SSSINITSDATA 3; Add an enter? to ed NUM_PAGES array. 
iff ; If user written invocation. 

-PSECT SSSINITSDATAS ; Add an entry to the NUM_PAGES array. 
-endc 3; End .PSECT selection conditional. 


«WORD NUMPAGES 


if DF SSSVMSDEF INED 
‘ae -PSECT SSSINITSDATAG 


-PSECT SSSINITSDATAS 
-endc 
IF ae INITRIN 


Store number of pages to be mapped. 


; If VMS distributed software. 

; Add entry to the INIT_ROUTINES array. 
; If user written invocation. 

; Add entry to the INIT_ROUTINES array. 
: T selection conditional. 

; If ADP init routine is specified... 


Sete Ge Ge Ge Ge Ge Oe & 
mn mp 
oo > 

a 

. 

wv 

“” 


° <INITRIN-.> ; Add self-relative pointer to routine. 
- 1F FALSE ; Else... 
«LONG 0 ; Add a 0 entry to INIT_ROUTINES. 
-ENDC 
. ENDR 
- RESTORE 


-ENDM ADAPDESC 


; ADAP_INIRUT = macro to declare Label of an adapter initialization routine 
; and to set the proper .PSECT so that the routine will be properly placed 
; when Linked into SYSLOAXXX.EXE. 

MACRO ADAP_INIRUT ROUTINE 

-PSECT SSSINITSCODE ,QUAD 


ROUTINE. 
-ENDM = ADAP_INIRUT 
«LIST 
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